home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / comm / news / nc_update_beta.lha / NewsCoaster / gotoURL.rx < prev    next >
Encoding:
Text File  |  2002-01-28  |  1.3 KB  |  57 lines
  1. /* GotoURL.rx. Launches URLs in web browser */
  2.  
  3. /* Location of your browser (full path) */
  4. browserPath='main:internet/voyager/v'
  5.  
  6. /* Your browser (must be 'Voyager', 'IBrowse' or 'AWeb')*/
  7. browserName='Voyager'
  8.  
  9. /* Open URL in a new window? */
  10. openInNewWindow=1
  11.  
  12. OPTIONS RESULTS
  13. OPTIONS FAILAT 21
  14.  
  15. PARSE ARG URL
  16.  
  17. NAME = UPPER(browserName)
  18. ports=SHOW('P')
  19.  
  20. SELECT
  21.   WHEN NAME='IBROWSE' THEN port='IBROWSE'
  22.   WHEN NAME='VOYAGER' THEN port='VOYAGER'
  23.   WHEN NAME='AWEB' THEN DO
  24.     PARSE VAR ports dummy 'AWEB.' portnr .
  25.     port='AWEB.' || portnr
  26.     END
  27.   OTHERWISE EXIT 10
  28.   END
  29.  
  30. ADDRESS COMMAND
  31. IF ~SHOW('P',port) THEN DO
  32.   'RUN >NIL:' browserPath
  33.   'SYS:rexxc/WaitForPort' port
  34.   IF RC>0 THEN DO
  35.      ADDRESS NEWSCOASTER 'REQUEST "'browserName' not found.\nPlease install 'browserName' or change the script configuration!" "Okay!"'
  36.      EXIT 5
  37.     END
  38.   END
  39.  
  40. INTERPRET 'ADDRESS' port
  41. SELECT
  42.   WHEN NAME='IBROWSE' THEN DO
  43.     IF openInNewWindow=1 THEN 'NewWindow 'url
  44.                          ELSE 'GotoURL 'url
  45.     END
  46.   WHEN NAME='VOYAGER' THEN DO
  47.     IF openInNewWindow=1 THEN 'OpenURL 'url' NEWWIN'
  48.                          ELSE 'OpenURL 'url
  49.     END
  50.   WHEN NAME='AWEB' THEN DO
  51.     IF openInNewWindow=1 THEN 'New 'url
  52.                          ELSE 'Open 'url
  53.     END
  54.   END
  55. EXIT
  56.  
  57.